home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / linkval.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  136 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    LinkValue_c
  18. #define    ivType    LinkValue_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    LinkValue_c;
  23.  
  24.  
  25. #line 26 "linkval.c"
  26. typedef struct  _LinkValue_iv_t  {
  27.     object iValue;
  28. }    LinkValue_iv_t;
  29.  
  30.  
  31.  
  32. #line 21 "linkval.d"
  33. cmeth objrtn LinkValue_cm_gNewWithObj(object self, object value)
  34. { 
  35.     object lnk; 
  36.     ivType *iv; 
  37.  
  38.     ChkArgNul(value, 2); 
  39.     lnk = oSuper(LinkValue_c, gNew, self)(self); 
  40.     iv = ivPtr(lnk); 
  41.     iv->iValue = value; 
  42.     return lnk; 
  43. } 
  44.  
  45. imeth objrtn LinkValue_im_gDeepCopy(object self)
  46. { LinkValue_iv_t *iv = GetIVs(LinkValue, self);
  47.     object nobj; 
  48.  
  49.     nobj = oSuper(LinkValue_c, gDeepCopy, self)(self); 
  50.     ivPtr(nobj)->iValue = iv->iValue ? gDeepCopy(iv->iValue) : NULL; 
  51.     return nobj; 
  52. } 
  53.  
  54. imeth objrtn LinkValue_im_gDeepDispose(object self)
  55. { LinkValue_iv_t *iv = GetIVs(LinkValue, self);
  56.     if (iv->iValue) 
  57.         gDeepDispose(iv->iValue); 
  58.     return oSuper(LinkValue_c, gDeepDispose, self)(self); 
  59. } 
  60.  
  61. imeth objrtn LinkValue_im_gValue(object self)
  62. { LinkValue_iv_t *iv = GetIVs(LinkValue, self);
  63.     return iv->iValue; 
  64. } 
  65.  
  66. imeth objrtn LinkValue_im_gChangeValue(object self, object value)
  67. { LinkValue_iv_t *iv = GetIVs(LinkValue, self);
  68.     ChkArgNul(value, 2); 
  69.     iv->iValue = value; 
  70.     return self; 
  71. } 
  72.  
  73. imeth objrtn LinkValue_im_gStringRepValue(object self)
  74. { LinkValue_iv_t *iv = GetIVs(LinkValue, self);
  75.     return iv->iValue ? gStringRepValue(iv->iValue) : gNewWithStr(String, "(null)"); 
  76. } 
  77.  
  78. imeth objrtn LinkValue_im_gStringRep(object self)
  79. { LinkValue_iv_t *iv = GetIVs(LinkValue, self);
  80.     object a, b, s; 
  81.  
  82.     a = oSuper(LinkValue_c, gStringRepValue, self)(self); 
  83.     b = iv->iValue ? gStringRepValue(iv->iValue) : gNewWithStr(String, "(null)"); 
  84.     s = vBuild(String, gName(ClassOf(self)), " (", a, ", ", b, ")\n", NULL); 
  85.     gDispose(a); 
  86.     gDispose(b); 
  87.     return s; 
  88. } 
  89.  
  90.  
  91. #line 92 "linkval.c"
  92.  
  93. objrtn    LinkValue_initialize(void)
  94. {
  95.     static  CRITICALSECTION  cs;
  96.     static  int volatile once = 0;
  97.  
  98.     ENTERCRITICALSECTION(_CI_CS_);
  99.     if (!once) {
  100.         INITIALIZECRITICALSECTION(cs);
  101.         once = 1;
  102.     }
  103.     LEAVECRITICALSECTION(_CI_CS_);
  104.  
  105.     ENTERCRITICALSECTION(cs);
  106.  
  107.     if (LinkValue_c) {
  108.         LEAVECRITICALSECTION(cs);
  109.         return LinkValue_c;
  110.     }
  111.     INHIBIT_THREADER;
  112.     Link_initialize();
  113.     if (LinkValue_c)  {
  114.         ENABLE_THREADER;
  115.         LEAVECRITICALSECTION(cs);
  116.         return LinkValue_c;
  117.     }
  118.     LinkValue_c = gNewClass(Class, "LinkValue", sizeof(LinkValue_iv_t), 0, Link, END);
  119.     cMethodFor(LinkValue, gNewWithObj, LinkValue_cm_gNewWithObj);
  120.     iMethodFor(LinkValue, gValue, LinkValue_im_gValue);
  121.     iMethodFor(LinkValue, gStringRepValue, LinkValue_im_gStringRepValue);
  122.     iMethodFor(LinkValue, gChangeValue, LinkValue_im_gChangeValue);
  123.     iMethodFor(LinkValue, gDeepDispose, LinkValue_im_gDeepDispose);
  124.     iMethodFor(LinkValue, gStringRep, LinkValue_im_gStringRep);
  125.     iMethodFor(LinkValue, gDeepCopy, LinkValue_im_gDeepCopy);
  126.  
  127.     ENABLE_THREADER;
  128.  
  129.     LEAVECRITICALSECTION(cs);
  130.  
  131.     return LinkValue_c;
  132. }
  133.  
  134.  
  135.  
  136.